home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pseudo-s / pseudo_2.lha / closed.pso < prev    next >
Encoding:
Text File  |  1992-02-17  |  14.6 KB  |  408 lines
  1. ; -*- Mode: Lisp; Syntax: Common-Lisp; Package: REVISED^4-SCHEME; -*-
  2.  
  3. ; This file was generated by Pseudoscheme 2.8a
  4. ;  running in Lucid Common Lisp 4.0.1
  5.  
  6. (SCHI:BEGIN-TRANSLATED-FILE)
  7. (EXPORT
  8.   '(.AND BEGIN .CASE .COND DEFINE DELAY .DO .IF .LAMBDA LETREC .LET .LET* .OR
  9.     QUASIQUOTE .QUOTE SET! UNQUOTE UNQUOTE-SPLICING DEFINE-SYNTAX LET-SYNTAX
  10.     LETREC-SYNTAX SYNTAX-RULES => ELSE .* .+ .- ./ .< .<= .= .> .>= .APPLY
  11.     BOOLEAN? CALL-WITH-CURRENT-CONTINUATION .CAR .CDR CHAR->INTEGER CHAR-READY?
  12.     CLOSE-INPUT-PORT CLOSE-OUTPUT-PORT COMPLEX? .CONS CURRENT-INPUT-PORT
  13.     CURRENT-OUTPUT-PORT .DENOMINATOR EOF-OBJECT? EQ? EQV? EXACT->INEXACT EXACT?
  14.     IMAG-PART INEXACT->EXACT INEXACT? INPUT-PORT? INTEGER->CHAR INTEGER? .LOAD
  15.     MAGNITUDE MAKE-POLAR MAKE-RECTANGULAR .MAKE-STRING MAKE-VECTOR MODULO
  16.     NEWLINE .NOT NULL? NUMBER? .NUMERATOR OPEN-INPUT-FILE OPEN-OUTPUT-FILE
  17.     OUTPUT-PORT? PAIR? .PEEK-CHAR PROCEDURE? QUOTIENT RATIONAL? .READ-CHAR
  18.     REAL-PART REAL? REMAINDER SET-CAR! SET-CDR! .STRING STRING->SYMBOL
  19.     STRING-LENGTH STRING-REF STRING-SET! STRING? SYMBOL->STRING SYMBOL?
  20.     TRANSCRIPT-ON TRANSCRIPT-OFF VECTOR-LENGTH VECTOR-REF VECTOR-SET! VECTOR?
  21.     .WRITE-CHAR .APPEND .ASSOC ASSQ ASSV .ABS .ACOS ANGLE .ASIN .ATAN .CAAAAR
  22.     .CAAADR .CAADAR .CAADDR .CAAAR .CAADR .CAAR .CADAAR .CADADR .CADDAR .CADDDR
  23.     .CADAR .CADDR .CADR CALL-WITH-INPUT-FILE CALL-WITH-OUTPUT-FILE .CDAAAR
  24.     .CDAADR .CDADAR .CDADDR .CDAAR .CDADR .CDAR .CDDAAR .CDDADR .CDDDAR .CDDDDR
  25.     .CDDAR .CDDDR .CDDR .CEILING CHAR-ALPHABETIC? CHAR-CI<=? CHAR-CI<?
  26.     CHAR-CI=? CHAR-CI>=? CHAR-CI>? .CHAR-DOWNCASE CHAR-LOWER-CASE?
  27.     CHAR-NUMERIC? .CHAR-UPCASE CHAR-UPPER-CASE? CHAR-WHITESPACE? CHAR<=? CHAR<?
  28.     CHAR=? CHAR>=? CHAR>? CHAR? .COS DISPLAY EQUAL? EVEN? .EXP .EXPT .FLOOR
  29.     FOR-EACH FORCE .GCD .LCM .LIST .LOG .LENGTH LIST->STRING LIST->VECTOR
  30.     LIST-REF LIST-TAIL LIST? .MAP .MAX .MEMBER MEMQ MEMV .MIN NEGATIVE?
  31.     NUMBER->STRING ODD? .RATIONALIZE POSITIVE? .READ .REVERSE .ROUND .SIN .SQRT
  32.     STRING->LIST STRING->NUMBER STRING-APPEND STRING-CI<=? STRING-CI<?
  33.     STRING-CI=? STRING-CI>=? STRING-CI>? STRING-COPY STRING-FILL! STRING<=?
  34.     STRING<? STRING=? STRING>=? STRING>? SUBSTRING .TAN .TRUNCATE .VECTOR
  35.     VECTOR->LIST VECTOR-FILL! WITH-INPUT-FROM-FILE WITH-OUTPUT-TO-FILE .WRITE
  36.     ZERO?))
  37. (DEFUN .<
  38.        (&REST SCHEME::X)
  39.        (SCHI:TRUE? (APPLY #'< SCHEME::X)))
  40. (DEFUN .<=
  41.        (&REST SCHEME::X)
  42.        (SCHI:TRUE? (APPLY #'<= SCHEME::X)))
  43. (DEFUN .=
  44.        (&REST SCHEME::X)
  45.        (SCHI:TRUE? (APPLY #'= SCHEME::X)))
  46. (DEFUN .>
  47.        (&REST SCHEME::X)
  48.        (SCHI:TRUE? (APPLY #'> SCHEME::X)))
  49. (DEFUN .>=
  50.        (&REST SCHEME::X)
  51.        (SCHI:TRUE? (APPLY #'>= SCHEME::X)))
  52. (DEFUN BOOLEAN?
  53.        (SCHEME::X)
  54.        (SCHI:TRUE? (SCHI:BOOLEANP SCHEME::X)))
  55. (DEFUN CALL-WITH-CURRENT-CONTINUATION
  56.        (SCHEME::PROC)
  57.        (BLOCK SCHEME::CONTINUATION
  58.          (FUNCALL SCHEME::PROC
  59.                   #'(LAMBDA (SCHEME::VAL)
  60.                      (RETURN-FROM SCHEME::CONTINUATION SCHEME::VAL)))))
  61. (DEFUN CHAR-READY?
  62.        (&REST SCHEME::X)
  63.        (SCHI:TRUE? (APPLY #'LISTEN SCHEME::X)))
  64. (DEFUN COMPLEX?
  65.        (SCHEME::X)
  66.        (SCHI:TRUE? (NUMBERP SCHEME::X)))
  67. (DEFUN CURRENT-INPUT-PORT
  68.        NIL
  69.        *STANDARD-INPUT*)
  70. (DEFUN CURRENT-OUTPUT-PORT
  71.        NIL
  72.        *STANDARD-OUTPUT*)
  73. (DEFUN EOF-OBJECT?
  74.        (SCHEME::OBJ)
  75.        (SCHI:TRUE? (EQ SCHEME::OBJ SCHI:EOF-OBJECT)))
  76. (DEFUN EQ?
  77.        (SCHEME::X SCHEME::Y)
  78.        (SCHI:TRUE? (EQ SCHEME::X SCHEME::Y)))
  79. (DEFUN EQV?
  80.        (SCHEME::X SCHEME::Y)
  81.        (SCHI:TRUE? (EQL SCHEME::X SCHEME::Y)))
  82. (DEFUN EXACT?
  83.        (SCHEME::X)
  84.        (SCHI:TRUE? (RATIONALP SCHEME::X)))
  85. (DEFUN INEXACT?
  86.        (SCHEME::X)
  87.        (SCHI:TRUE? (FLOATP SCHEME::X)))
  88. (DEFUN INPUT-PORT?
  89.        (SCHEME::X)
  90.        (SCHI:TRUE? (SCHI:INPUT-PORT-P SCHEME::X)))
  91. (DEFUN INTEGER?
  92.        (SCHEME::X)
  93.        (SCHI:TRUE? (INTEGERP SCHEME::X)))
  94. (DEFUN MAKE-POLAR
  95.        (SCHEME::R SCHEME::TH)
  96.        (* SCHEME::R (CIS SCHEME::TH)))
  97. (DEFUN NULL?
  98.        (SCHEME::X)
  99.        (SCHI:TRUE? (NULL SCHEME::X)))
  100. (DEFUN NUMBER?
  101.        (SCHEME::X)
  102.        (SCHI:TRUE? (NUMBERP SCHEME::X)))
  103. (DEFUN OPEN-INPUT-FILE
  104.        (SCHEME::STRING)
  105.        (OPEN (MERGE-PATHNAMES SCHEME::STRING)
  106.              :DIRECTION
  107.              :INPUT))
  108. (DEFUN OPEN-OUTPUT-FILE
  109.        (SCHEME::STRING)
  110.        (OPEN (MERGE-PATHNAMES SCHEME::STRING)
  111.              :DIRECTION
  112.              :OUTPUT))
  113. (DEFUN OUTPUT-PORT?
  114.        (SCHEME::X)
  115.        (SCHI:TRUE? (SCHI:OUTPUT-PORT-P SCHEME::X)))
  116. (DEFUN PAIR?
  117.        (SCHEME::X)
  118.        (SCHI:TRUE? (CONSP SCHEME::X)))
  119. (DEFUN PROCEDURE?
  120.        (SCHEME::X)
  121.        (SCHI:TRUE? (SCHI:PROCEDUREP SCHEME::X)))
  122. (DEFUN QUOTIENT
  123.        (SCHEME::N1 SCHEME::N2)
  124.        (VALUES (TRUNCATE SCHEME::N1 SCHEME::N2)))
  125. (DEFUN RATIONAL?
  126.        (SCHEME::X)
  127.        (SCHI:TRUE? (RATIONALP SCHEME::X)))
  128. (DEFUN REAL?
  129.        (SCHEME::X)
  130.        (SCHI:TRUE? (SCHI:REALP SCHEME::X)))
  131. (DEFUN SET-CAR!
  132.        (SCHEME::PAIR SCHEME::OBJ)
  133.        (SETF (CAR SCHEME::PAIR) SCHEME::OBJ)
  134.        SCHI:UNSPECIFIED)
  135. (DEFUN SET-CDR!
  136.        (SCHEME::PAIR SCHEME::OBJ)
  137.        (SETF (CDR SCHEME::PAIR) SCHEME::OBJ)
  138.        SCHI:UNSPECIFIED)
  139. (DEFUN STRING->SYMBOL
  140.        (SCHEME::STRING)
  141.        (VALUES (INTERN SCHEME::STRING SCHI:SCHEME-PACKAGE)))
  142. (DEFUN STRING-LENGTH
  143.        (SCHEME::S)
  144.        (LENGTH (THE SIMPLE-STRING SCHEME::S)))
  145. (DEFUN STRING-REF
  146.        (SCHEME::S SCHEME::K)
  147.        (CHAR (THE SIMPLE-STRING SCHEME::S)
  148.              SCHEME::K))
  149. (DEFUN STRING-SET!
  150.        (SCHEME::S SCHEME::K SCHEME::OBJ)
  151.        (SETF (CHAR (THE SIMPLE-STRING SCHEME::S)
  152.                    SCHEME::K)
  153.              SCHEME::OBJ)
  154.        SCHI:UNSPECIFIED)
  155. (DEFUN STRING?
  156.        (SCHEME::X)
  157.        (SCHI:TRUE? (SIMPLE-STRING-P SCHEME::X)))
  158. (DEFUN SYMBOL?
  159.        (SCHEME::X)
  160.        (SCHI:TRUE? (SCHI:SCHEME-SYMBOL-P SCHEME::X)))
  161. (DEFUN TRANSCRIPT-ON
  162.        (SCHEME::FILESPEC)
  163.        (DRIBBLE SCHEME::FILESPEC)
  164.        SCHI:UNSPECIFIED)
  165. (DEFUN TRANSCRIPT-OFF
  166.        NIL
  167.        (DRIBBLE)
  168.        SCHI:UNSPECIFIED)
  169. (DEFUN VECTOR-LENGTH
  170.        (SCHEME::VEC)
  171.        (LENGTH (THE SIMPLE-VECTOR SCHEME::VEC)))
  172. (DEFUN VECTOR-SET!
  173.        (SCHEME::VEC SCHEME::K SCHEME::OBJ)
  174.        (SETF (SVREF SCHEME::VEC SCHEME::K)
  175.              SCHEME::OBJ)
  176.        SCHI:UNSPECIFIED)
  177. (DEFUN .ASSOC
  178.        (SCHEME::OBJ SCHEME::LIST)
  179.        (SCHI:TRUE?
  180.          (ASSOC SCHEME::OBJ
  181.                 SCHEME::LIST
  182.                 :TEST
  183.                 #'SCHI:SCHEME-EQUAL-P)))
  184. (DEFUN ASSQ
  185.        (SCHEME::OBJ SCHEME::LIST)
  186.        (SCHI:TRUE? (ASSOC SCHEME::OBJ SCHEME::LIST :TEST #'EQ)))
  187. (DEFUN ASSV
  188.        (SCHEME::X SCHEME::Y)
  189.        (SCHI:TRUE? (ASSOC SCHEME::X SCHEME::Y)))
  190. (DEFUN CALL-WITH-INPUT-FILE
  191.        (SCHEME::STRING SCHEME::PROC)
  192.        (WITH-OPEN-FILE
  193.          (SCHEME::PORT (MERGE-PATHNAMES SCHEME::STRING)
  194.                        :DIRECTION
  195.                        :INPUT)
  196.          (FUNCALL SCHEME::PROC SCHEME::PORT)))
  197. (DEFUN CALL-WITH-OUTPUT-FILE
  198.        (SCHEME::STRING SCHEME::PROC)
  199.        (WITH-OPEN-FILE
  200.          (SCHEME::PORT (MERGE-PATHNAMES SCHEME::STRING)
  201.                        :DIRECTION
  202.                        :OUTPUT
  203.                        :IF-EXISTS
  204.                        :NEW-VERSION)
  205.          (FUNCALL SCHEME::PROC SCHEME::PORT)))
  206. (DEFUN CHAR-ALPHABETIC?
  207.        (SCHEME::X)
  208.        (SCHI:TRUE? (ALPHA-CHAR-P SCHEME::X)))
  209. (DEFUN CHAR-CI<=?
  210.        (&REST SCHEME::X)
  211.        (SCHI:TRUE? (APPLY #'CHAR-NOT-GREATERP SCHEME::X)))
  212. (DEFUN CHAR-CI<?
  213.        (&REST SCHEME::X)
  214.        (SCHI:TRUE? (APPLY #'CHAR-LESSP SCHEME::X)))
  215. (DEFUN CHAR-CI=?
  216.        (&REST SCHEME::X)
  217.        (SCHI:TRUE? (APPLY #'CHAR-EQUAL SCHEME::X)))
  218. (DEFUN CHAR-CI>=?
  219.        (&REST SCHEME::X)
  220.        (SCHI:TRUE? (APPLY #'CHAR-NOT-LESSP SCHEME::X)))
  221. (DEFUN CHAR-CI>?
  222.        (&REST SCHEME::X)
  223.        (SCHI:TRUE? (APPLY #'CHAR-GREATERP SCHEME::X)))
  224. (DEFUN CHAR-LOWER-CASE?
  225.        (SCHEME::X)
  226.        (SCHI:TRUE? (LOWER-CASE-P SCHEME::X)))
  227. (DEFUN CHAR-NUMERIC?
  228.        (SCHEME::X)
  229.        (SCHI:TRUE? (DIGIT-CHAR-P SCHEME::X)))
  230. (DEFUN CHAR-UPPER-CASE?
  231.        (SCHEME::X)
  232.        (SCHI:TRUE? (UPPER-CASE-P SCHEME::X)))
  233. (DEFUN CHAR-WHITESPACE?
  234.        (SCHEME::X)
  235.        (SCHI:TRUE? (SCHI:CHAR-WHITESPACE-P SCHEME::X)))
  236. (DEFUN CHAR<=?
  237.        (&REST SCHEME::X)
  238.        (SCHI:TRUE? (APPLY #'CHAR<= SCHEME::X)))
  239. (DEFUN CHAR<?
  240.        (&REST SCHEME::X)
  241.        (SCHI:TRUE? (APPLY #'CHAR< SCHEME::X)))
  242. (DEFUN CHAR=?
  243.        (&REST SCHEME::X)
  244.        (SCHI:TRUE? (APPLY #'CHAR= SCHEME::X)))
  245. (DEFUN CHAR>=?
  246.        (&REST SCHEME::X)
  247.        (SCHI:TRUE? (APPLY #'CHAR>= SCHEME::X)))
  248. (DEFUN CHAR>?
  249.        (&REST SCHEME::X)
  250.        (SCHI:TRUE? (APPLY #'CHAR> SCHEME::X)))
  251. (DEFUN CHAR?
  252.        (SCHEME::X)
  253.        (SCHI:TRUE? (CHARACTERP SCHEME::X)))
  254. (DEFUN EQUAL?
  255.        (SCHEME::X SCHEME::Y)
  256.        (SCHI:TRUE? (SCHI:SCHEME-EQUAL-P SCHEME::X SCHEME::Y)))
  257. (DEFUN EVEN?
  258.        (SCHEME::X)
  259.        (SCHI:TRUE? (EVENP SCHEME::X)))
  260. (DEFUN LIST->STRING
  261.        (SCHEME::L)
  262.        (COERCE (THE LIST SCHEME::L)
  263.                'SIMPLE-STRING))
  264. (DEFUN LIST->VECTOR
  265.        (SCHEME::L)
  266.        (COERCE (THE LIST SCHEME::L)
  267.                'SIMPLE-VECTOR))
  268. (DEFUN LIST-REF
  269.        (SCHEME::LIST SCHEME::N)
  270.        (NTH SCHEME::N SCHEME::LIST))
  271. (DEFUN LIST-TAIL
  272.        (SCHEME::LIST SCHEME::N)
  273.        (NTHCDR SCHEME::N SCHEME::LIST))
  274. (DEFUN .MEMBER
  275.        (SCHEME::OBJ SCHEME::LIST)
  276.        (SCHI:TRUE?
  277.          (MEMBER SCHEME::OBJ
  278.                  SCHEME::LIST
  279.                  :TEST
  280.                  #'SCHI:SCHEME-EQUAL-P)))
  281. (DEFUN MEMQ
  282.        (SCHEME::OBJ SCHEME::LIST)
  283.        (SCHI:TRUE? (MEMBER SCHEME::OBJ SCHEME::LIST :TEST #'EQ)))
  284. (DEFUN MEMV
  285.        (SCHEME::X SCHEME::Y)
  286.        (SCHI:TRUE? (MEMBER SCHEME::X SCHEME::Y)))
  287. (DEFUN NEGATIVE?
  288.        (SCHEME::X)
  289.        (SCHI:TRUE? (MINUSP SCHEME::X)))
  290. (DEFUN ODD?
  291.        (SCHEME::X)
  292.        (SCHI:TRUE? (ODDP SCHEME::X)))
  293. (DEFUN POSITIVE?
  294.        (SCHEME::X)
  295.        (SCHI:TRUE? (PLUSP SCHEME::X)))
  296. (DEFUN STRING->LIST
  297.        (SCHEME::STRING)
  298.        (COERCE (THE SIMPLE-STRING SCHEME::STRING)
  299.                'LIST))
  300. (DEFUN STRING-CI<=?
  301.        (SCHEME::X SCHEME::Y)
  302.        (SCHI:TRUE? (STRING-NOT-GREATERP SCHEME::X SCHEME::Y)))
  303. (DEFUN STRING-CI<?
  304.        (SCHEME::X SCHEME::Y)
  305.        (SCHI:TRUE? (STRING-LESSP SCHEME::X SCHEME::Y)))
  306. (DEFUN STRING-CI=?
  307.        (SCHEME::X SCHEME::Y)
  308.        (SCHI:TRUE? (STRING-EQUAL SCHEME::X SCHEME::Y)))
  309. (DEFUN STRING-CI>=?
  310.        (SCHEME::X SCHEME::Y)
  311.        (SCHI:TRUE? (STRING-NOT-LESSP SCHEME::X SCHEME::Y)))
  312. (DEFUN STRING-CI>?
  313.        (SCHEME::X SCHEME::Y)
  314.        (SCHI:TRUE? (STRING-GREATERP SCHEME::X SCHEME::Y)))
  315. (DEFUN STRING-FILL!
  316.        (SCHEME::S SCHEME::VAL)
  317.        (FILL (THE SIMPLE-STRING SCHEME::S)
  318.              SCHEME::VAL))
  319. (DEFUN STRING<=?
  320.        (SCHEME::X SCHEME::Y)
  321.        (SCHI:TRUE? (STRING<= SCHEME::X SCHEME::Y)))
  322. (DEFUN STRING<?
  323.        (SCHEME::X SCHEME::Y)
  324.        (SCHI:TRUE? (STRING< SCHEME::X SCHEME::Y)))
  325. (DEFUN STRING=?
  326.        (SCHEME::X SCHEME::Y)
  327.        (SCHI:TRUE? (STRING= SCHEME::X SCHEME::Y)))
  328. (DEFUN STRING>=?
  329.        (SCHEME::X SCHEME::Y)
  330.        (SCHI:TRUE? (STRING>= SCHEME::X SCHEME::Y)))
  331. (DEFUN STRING>?
  332.        (SCHEME::X SCHEME::Y)
  333.        (SCHI:TRUE? (STRING> SCHEME::X SCHEME::Y)))
  334. (DEFUN VECTOR->LIST
  335.        (SCHEME::VEC)
  336.        (COERCE (THE SIMPLE-VECTOR SCHEME::VEC)
  337.                'LIST))
  338. (DEFUN VECTOR-FILL!
  339.        (SCHEME::VEC SCHEME::VAL)
  340.        (FILL (THE SIMPLE-VECTOR SCHEME::VEC)
  341.              SCHEME::VAL))
  342. (DEFUN WITH-INPUT-FROM-FILE
  343.        (SCHEME::STRING SCHEME::THUNK)
  344.        (WITH-OPEN-FILE
  345.          (*STANDARD-INPUT* (MERGE-PATHNAMES SCHEME::STRING)
  346.                            :DIRECTION
  347.                            :INPUT)
  348.          (FUNCALL SCHEME::THUNK)))
  349. (DEFUN WITH-OUTPUT-TO-FILE
  350.        (SCHEME::STRING SCHEME::THUNK)
  351.        (WITH-OPEN-FILE
  352.          (*STANDARD-OUTPUT* (MERGE-PATHNAMES SCHEME::STRING)
  353.                             :DIRECTION
  354.                             :OUTPUT
  355.                             :IF-EXISTS
  356.                             :NEW-VERSION)
  357.          (FUNCALL SCHEME::THUNK)))
  358. (DEFUN ZERO?
  359.        (SCHEME::X)
  360.        (SCHI:TRUE? (ZEROP SCHEME::X)))
  361. (LOCALLY (DECLARE (SPECIAL UNSPECIFIED))
  362.          (SETQ UNSPECIFIED SCHI:UNSPECIFIED))
  363. (SCHI:SET-FUNCTION-FROM-VALUE 'UNSPECIFIED)
  364. (MAPC #'SCHI:SET-VALUE-FROM-FUNCTION
  365.       '(.< .<= .= .> .>= BOOLEAN? CALL-WITH-CURRENT-CONTINUATION CHAR-READY?
  366.         COMPLEX? CURRENT-INPUT-PORT CURRENT-OUTPUT-PORT EOF-OBJECT? EQ? EQV?
  367.         EXACT? INEXACT? INPUT-PORT? INTEGER? MAKE-POLAR NULL? NUMBER?
  368.         OPEN-INPUT-FILE OPEN-OUTPUT-FILE OUTPUT-PORT? PAIR? PROCEDURE? QUOTIENT
  369.         RATIONAL? REAL? SET-CAR! SET-CDR! STRING->SYMBOL STRING-LENGTH
  370.         STRING-REF STRING-SET! STRING? SYMBOL? TRANSCRIPT-ON TRANSCRIPT-OFF
  371.         VECTOR-LENGTH VECTOR-SET! .ASSOC ASSQ ASSV CALL-WITH-INPUT-FILE
  372.         CALL-WITH-OUTPUT-FILE CHAR-ALPHABETIC? CHAR-CI<=? CHAR-CI<? CHAR-CI=?
  373.         CHAR-CI>=? CHAR-CI>? CHAR-LOWER-CASE? CHAR-NUMERIC? CHAR-UPPER-CASE?
  374.         CHAR-WHITESPACE? CHAR<=? CHAR<? CHAR=? CHAR>=? CHAR>? CHAR? EQUAL?
  375.         EVEN? LIST->STRING LIST->VECTOR LIST-REF LIST-TAIL .MEMBER MEMQ MEMV
  376.         NEGATIVE? ODD? POSITIVE? STRING->LIST STRING-CI<=? STRING-CI<?
  377.         STRING-CI=? STRING-CI>=? STRING-CI>? STRING-FILL! STRING<=? STRING<?
  378.         STRING=? STRING>=? STRING>? VECTOR->LIST VECTOR-FILL!
  379.         WITH-INPUT-FROM-FILE WITH-OUTPUT-TO-FILE ZERO?))
  380. (MAPC
  381.   #'(LAMBDA (SCHEME::Z)
  382.      (LET
  383.       ((SCHEME::OUR-SYM (CAR SCHEME::Z)) (SCHEME::CL-SYM (CADR SCHEME::Z)))
  384.       (SETF (SYMBOL-FUNCTION SCHEME::OUR-SYM)
  385.        (SYMBOL-FUNCTION SCHEME::CL-SYM))
  386.       (SCHI:SET-VALUE-FROM-FUNCTION SCHEME::OUR-SYM)))
  387.   '((.* *) (.+ +) (.- -) (./ /) (.APPLY APPLY) (CHAR->INTEGER CHAR-CODE)
  388.     (CLOSE-INPUT-PORT CLOSE) (CLOSE-OUTPUT-PORT CLOSE) (.CONS CONS)
  389.     (.DENOMINATOR DENOMINATOR) (EXACT->INEXACT FLOAT) (IMAG-PART IMAGPART)
  390.     (INEXACT->EXACT RATIONALIZE) (INTEGER->CHAR CODE-CHAR) (MAGNITUDE ABS)
  391.     (MAKE-RECTANGULAR COMPLEX) (MODULO MOD) (NEWLINE TERPRI)
  392.     (.NUMERATOR NUMERATOR) (REAL-PART REALPART) (REMAINDER REM)
  393.     (VECTOR-REF SVREF) (.WRITE-CHAR WRITE-CHAR) (.APPEND APPEND) (.ABS ABS)
  394.     (.ACOS ACOS) (ANGLE PHASE) (.ASIN ASIN) (.ATAN ATAN) (.CAAAAR CAAAAR)
  395.     (.CAAADR CAAADR) (.CAADAR CAADAR) (.CAADDR CAADDR) (.CAAAR CAAAR)
  396.     (.CAADR CAADR) (.CAAR CAAR) (.CADAAR CADAAR) (.CADADR CADADR)
  397.     (.CADDAR CADDAR) (.CADDDR CADDDR) (.CADAR CADAR) (.CADDR CADDR)
  398.     (.CADR CADR) (.CDAAAR CDAAAR) (.CDAADR CDAADR) (.CDADAR CDADAR)
  399.     (.CDADDR CDADDR) (.CDAAR CDAAR) (.CDADR CDADR) (.CDAR CDAR)
  400.     (.CDDAAR CDDAAR) (.CDDADR CDDADR) (.CDDDAR CDDDAR) (.CDDDDR CDDDDR)
  401.     (.CDDAR CDDAR) (.CDDDR CDDDR) (.CDDR CDDR) (.CEILING CEILING)
  402.     (.CHAR-DOWNCASE CHAR-DOWNCASE) (.CHAR-UPCASE CHAR-UPCASE) (.COS COS)
  403.     (.EXP EXP) (.EXPT EXPT) (.FLOOR FLOOR) (FOR-EACH MAPC) (.GCD GCD)
  404.     (.LCM LCM) (.LIST LIST) (.LOG LOG) (.LENGTH LENGTH) (.MAP MAPCAR)
  405.     (.MAX MAX) (.MIN MIN) (.REVERSE REVERSE) (.ROUND ROUND) (.SIN SIN)
  406.     (.SQRT SQRT) (STRING-COPY COPY-SEQ) (SUBSTRING SUBSEQ) (.TAN TAN)
  407.     (.TRUNCATE TRUNCATE) (.VECTOR VECTOR)))
  408.